home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / demo024.dxr / Internal (lingo)_2.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  702 b   |  33 lines
  1. on mouseDown
  2.   global gMouseDownScript
  3.   if gMouseDownScript = 1 then
  4.     hEscapeDemo()
  5.   end if
  6. end
  7.  
  8. on hEscapeDemo
  9.   cursor(4)
  10.   hDecreaseSound(1, 0, 255)
  11.   hIncreaseSound(2, 128, 255)
  12.   puppetSound(1, 0)
  13.   updateStage()
  14.   set the volume of sound 1 to 255
  15.   go("escape")
  16. end
  17.  
  18. on hDecreaseSound pSoundChannel, pMinVolume, pMaxVolume
  19.   if soundBusy(pSoundChannel) = 1 then
  20.     repeat with i = pMaxVolume down to pMinVolume
  21.       set the volume of sound pSoundChannel to i
  22.       updateStage()
  23.     end repeat
  24.   end if
  25. end
  26.  
  27. on hIncreaseSound pSoundChannel, pMinVolume, pMaxVolume
  28.   repeat with i = pMinVolume to pMaxVolume
  29.     set the volume of sound pSoundChannel to i
  30.     updateStage()
  31.   end repeat
  32. end
  33.